Acala Pools

Row

#>    token1Id token0Id        poolId           timestamp token0Amount token1Amount token0Price token1Price
#> 1:     AUSD      ACA lp://ACA/AUSD 2022-02-16T00:00:00      1116480      1650507    1.478312           1
#> 2:     AUSD      ACA lp://ACA/AUSD 2022-02-17T00:00:00      1308503      1747582    1.335558           1
#> 3:     AUSD      ACA lp://ACA/AUSD 2022-02-18T00:00:00      1405605      1837877    1.307535           1
#> 4:     AUSD      ACA lp://ACA/AUSD 2022-02-19T00:00:00      1540526      1938973    1.258643           1
#> 5:     AUSD      ACA lp://ACA/AUSD 2022-02-20T00:00:00      2124204      2424919    1.141566           1
#> 6:     AUSD      ACA lp://ACA/AUSD 2022-02-21T00:00:00      2674247      2866197    1.071777           1
#>    feeRateUSD token0TVL token1TVL totalTVL txCount          adj0          adj1   tvlUSD       date     test
#> 1:  2082.0627   1650507   1650507  3301014    2847 1000000000000 1000000000000 3301.014 2022-02-16 1.478312
#> 2:   941.6783   1747582   1747582  3495163    1607 1000000000000 1000000000000 3495.163 2022-02-17 1.335558
#> 3:  1758.4880   1837877   1837877  3675754    1358 1000000000000 1000000000000 3675.754 2022-02-18 1.307535
#> 4:   824.2013   1938973   1938973  3877946    1073 1000000000000 1000000000000 3877.946 2022-02-19 1.258643
#> 5:  1214.6460   2424919   2424919  4849837     945 1000000000000 1000000000000 4849.837 2022-02-20 1.141566
#> 6:  1830.6009   2866197   2866197  5732393     841 1000000000000 1000000000000 5732.393 2022-02-21 1.071777

Row

Row

Row

Karura Pools

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

Row

---
title: "Acala / Karura Daily Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(dygraphs)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}


# k_tdd <- getTokenDailyData_acala_dex("karura")
# k_tdd[, tvl := tvl / 1e3]
# k_tdd[, timestamp := as.Date(timestamp)]
# 
# a_tdd <- getTokenDailyData_acala_dex("acala")
# a_tdd[, tvl := tvl / 1e3]
# a_tdd[, timestamp := as.Date(timestamp)]

maintxt <- "Total Value Locked for "

k_dp_dex <- getDailyPool_acala_dex("karura")
k_dp_dex[, tvlUSD := totalTVL / 1e3]
k_dp_dex[, date := as.Date(timestamp)]
# k_dp <- getPoolDayData_acala("karura")
# k_dp[, tvlUSD := tvlUSD / 1e3]
# k_dp[, token0Price := token0Close]
# k_dp[, date := as.Date(date)]
# k_both <- merge(k_dp,
#                 k_dp_dex,
#                 by = c("poolId","date"),
#                 all = TRUE,
#                 suffixes = c("","_DEX"))
k_pools <- sort(unique(k_dp_dex$poolId))


a_dp_dex <- getDailyPool_acala_dex("acala")
a_dp_dex[, tvlUSD := totalTVL / 1e3]
a_dp_dex[, date := as.Date(timestamp)]

a_dp_dex[, test := token1Amount / token0Amount]
a_dp_dex[, .(token0Id, token1Id, token0Price, token1Price, test)]

# a_dp <- getPoolDayData_acala("acala")
# a_dp[, tvlUSD := tvlUSD / 1e3]
# a_dp[, token0Price := token0Close]
# a_dp[, date := as.Date(date)]
# a_both <- merge(a_dp,
#                 a_dp_dex,
#                 by = c("poolId","date"),
#                 all = TRUE,
#                 suffixes = c("","_DEX"))
a_pools <- sort(unique(a_dp_dex$poolId))

#    "token0Amount": "2461670866930004326",
#           "token1Amount": "1872076768294621",
#           "tvlUSD": "4923321763900343588776521",
#           "token0Close": "773400515"
#    
#    (2461670866930004326 * 773400515) / 1e18
#    15263590546
#    
# x  "exchange0": "1478312353408",
#           "exchange1": "676447029407"
# 1/.67

   
```

# Acala Pools {.tabset}


Row
----

```{r}
head(a_dp_dex)

pool <- a_pools[1]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- a_pools[2]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- a_pools[3]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- a_pools[4]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```


# Karura Pools {.tabset}

Row
----

```{r}

pool <- k_pools[1]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```


Row
----

```{r}

pool <- k_pools[2]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[3]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[4]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[5]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[6]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[7]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[8]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[9]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[10]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[11]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[12]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[13]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[14]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[15]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[16]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[17]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[18]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```